perm filename DMS[NEW,LCS] blob
sn#550333 filedate 1980-12-10 generic text, type T, neo UTF8
1) MS.F4[NEW,LCS] and 2) UDP:MS.F4[MS,LCS] 12-10-80 09:32 pages 1,1
**** File 1) MS.F4[NEW,LCS]/1P/1L
1) COMMENT ā VALID 00004 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 C ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
1) C00032 00003
1) C00050 00004 1860 J2=R2
1) C00067 ENDMK
1) Cā;
1) C ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
**** File 2) UDP:MS.F4[MS,LCS]/1P/1L
2) C ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
***************
**** File 1) MS.F4[NEW,LCS]/2P/110L
1) C11/80 IF(IGO)CALL DPYDO(1)
1) IF(IGO)CALL DPYDO(1)
1) C12/80 IF(IGO.LT.0.AND.X22.EQ.0)CALL DPYDO(1)
1) C DPYOUT DONE IN 'BOX' IF CURSOR IS TO APPEAR ALSO.
1) 80 ITEM=ITEM+1
**** File 2) UDP:MS.F4[MS,LCS]/1P/110L
2) IF(IGO)CALL DPYDO(1)
2) 80 ITEM=ITEM+1
***************
**** File 1) MS.F4[NEW,LCS]/3P/107L
1) IF(I2.EQ.LZZ)GO TO 1370
1) C PIZZ
1) R5=42
**** File 2) UDP:MS.F4[MS,LCS]/2P/107L
2) R5=42
***************
**** File 1) MS.F4[NEW,LCS]/3P/117L
1) IF(I3.EQ.IBLA)GO TO 880
**** File 2) UDP:MS.F4[MS,LCS]/2P/115L
2) IF(I2.EQ.LZZ)GO TO 1370
2) C PIZZ
2) IF(I3.EQ.IBLA)GO TO 880
***************